home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slamrg.z / slamrg
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAAMMMMRRRRGGGG((((3333FFFF))))                                                          SSSSLLLLAAAAMMMMRRRRGGGG((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLAMRG - will create a permutation list which will merge the elements of
  10.      A (which is composed of two independently sorted sets) into a single set
  11.      which is sorted in ascending order
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  14.      SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX )
  15.  
  16.          INTEGER        N1, N2, STRD1, STRD2
  17.  
  18.          INTEGER        INDEX( * )
  19.  
  20.          REAL           A( * )
  21.  
  22. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  23.      SLAMRG will create a permutation list which will merge the elements of A
  24.      (which is composed of two independently sorted sets) into a single set
  25.      which is sorted in ascending order.
  26.  
  27.  
  28. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  29.      N1     (input) INTEGER
  30.             N2     (input) INTEGER These arguements contain the respective
  31.             lengths of the two sorted lists to be merged.
  32.  
  33.      A      (input) REAL array, dimension (N1+N2)
  34.             The first N1 elements of A contain a list of numbers which are
  35.             sorted in either ascending or descending order.  Likewise for the
  36.             final N2 elements.
  37.  
  38.      STRD1  (input) INTEGER
  39.             STRD2  (input) INTEGER These are the strides to be taken through
  40.             the array A.  Allowable strides are 1 and -1.  They indicate
  41.             whether a subset of A is sorted in ascending (STRDx = 1) or
  42.             descending (STRDx = -1) order.
  43.  
  44.      INDEX  (output) INTEGER array, dimension (N1+N2)
  45.             On exit this array will contain a permutation such that if B( I )
  46.             = A( INDEX( I ) ) for I=1,N1+N2, then B will be sorted in
  47.             ascending order.
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.